home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / f.cris-cros poke (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  473b  |  15 lines
  1. 1 print"[147][159]"
  2. 2 printtab(9)"[201]nsert [204][207][193][196][211][212][193][210] #49[159] [211]ide 2[159]"
  3. 3 printtab(14)"and press [210][197][212][213][210][206][146]"
  4. 4 geta$:ifa$<>chr$(13)then4
  5. 5 printtab(8)"[156][197] [216] [212][160][197][160][210][160][205][160][201][160][206][160][193][160][212][160][201][160][206][160][199]!!!"
  6. 10 qt$=chr$(34):f$="cris-cros poker"
  7. 20 print"[144]load"qt$f$qt$",8"
  8. 30 print"25 fori=54272to54296:pokei,0:next:poke54296,8"
  9. 40 print"840 poke2023,160:poke56295,0:clr:dimc$(52),c(52),f(30),cc(13)"
  10. 100 print"open15,8,15,"qt$"s0:"f$qt$":close15:save"qt$f$qt$",8"
  11. 125 print"poke646,15"
  12. 130 print""
  13. 140 fori=631to640:pokei,13:next:poke198,10
  14. 150 new
  15.